home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 22
/
Amiga Format AFCD22 (Jan 1998, Issue 106).iso
/
-in_the_mag-
/
artstudiodemo
/
rexx
/
showimageadpro.asrx
< prev
next >
Wrap
Text File
|
1995-05-31
|
710b
|
48 lines
/*
** View.asrx
**
** $VER: View 1.1.0 (05.01.95)
**
** (c) by MotionStudios
** Wildermuthplatz 3
** 28211 Bremen
** Tel.: 0421/249966
*/
ADDRESS "ADPro"
OPTIONS RESULTS
PARSE ARG Path
IF ~SHOW('P','ADPro') THEN
DO
ADDRESS COMMAND 'run >NIL: <NIL: ADPro:ADPro BEHIND MAXMEM=7000000'
ADDRESS COMMAND Wait 5
END
LOADER "UNIVERSAL" Path
XSIZE
x = ADPRO_RESULT
YSIZE
y = ADPRO_RESULT
Mode = 4
IF x>400 THEN Mode = Mode + 1
IF x>640 THEN Mode = Mode + 8
IF y>400 THEN Mode = Mode + 2
IF y>512 THEN Mode = Mode + 16
PSTATUS "UNLOCKED"
PCONTRAST 1
PWIDTH "ENHANCED"
PTOTAL 256
PUSED 256
POFFSET 0
DITHER_AMOUNT 16
DITHER 1
SCREEN_TYPE Mode
RENDER_TYPE 'HAM8'
EXECUTE
ADPRO_DISPLAY